home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / walker.arc / WALKER.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1985-08-12  |  706 b   |  29 lines
  1. 100  DEFINT A-Z:CLS:SCREEN 1:KEY OFF:PRINT "Change line 500 for speed"
  2. 110  DIM A(2500),B(2500),C(2500),D(2500),E(2500),F(2500),G(2500),H(2500),I(2500),J(2500)
  3. 200  BLOAD"WALK0.DMP",VARPTR(A(0))
  4. 210  BLOAD"WALK1.DMP",VARPTR(B(0))
  5. 220  BLOAD"WALK2.DMP",VARPTR(C(0))
  6. 230  BLOAD"WALK3.DMP",VARPTR(D(0))
  7. 240  BLOAD"WALK4.DMP",VARPTR(E(0))
  8. 250  BLOAD"WALK5.DMP",VARPTR(F(0))
  9. 260  BLOAD"WALK6.DMP",VARPTR(G(0))
  10. 270  BLOAD"WALK7.DMP",VARPTR(H(0))
  11. 280  BLOAD"WALK8.DMP",VARPTR(I(0))
  12. 290  BLOAD"WALK9.DMP",VARPTR(J(0))
  13. 295  CLS
  14. 300  WHILE INKEY$<>CHR$(27)
  15. 310   PUT(100,50),A,PSET:GOSUB 500
  16. 320   PUT(100,50),B,PSET:GOSUB 500
  17. 330   PUT(100,50),C,PSET:GOSUB 500
  18. 340   PUT(100,50),D,PSET:GOSUB 500
  19. 350   PUT(100,50),E,PSET:GOSUB 500
  20. 360   PUT(100,50),F,PSET:GOSUB 500
  21. 370   PUT(100,50),G,PSET:GOSUB 500
  22. 380   PUT(100,50),H,PSET:GOSUB 500
  23. 390   PUT(100,50),I,PSET:GOSUB 500
  24. 400   PUT(100,50),J,PSET:GOSUB 500
  25. 410  WEND
  26. 420  SCREEN 0,0,0 :WIDTH 80 :CLS
  27. 430  END
  28. 500  FOR N=1 TO 400:NEXT:RETURN
  29.